home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / JimBeam < prev    next >
Text File  |  1990-09-11  |  906b  |  28 lines
  1. ; JimBeam - Erzeugt 8 Kopien eines Abkömmlings und spaltet die Ausführung
  2. ; auf alle Kopien gleichzeitig auf. Jeder Abkömmling kopiert sich selbst
  3. ; 101 Speicherzellen weiter und verlagert die Ausführung auf seine Kopie.
  4.  
  5. anzahl          DAT 0
  6. quelle          DAT 0
  7. ziel            DAT 0
  8. count           DAT 7
  9. start           MOV # Aende - Astart + 1, anzahl
  10.                 MOV # Aende - quelle + 1, quelle
  11.                 ADD #818, ziel
  12. copy            MOV <quelle, <ziel
  13.                 DJN copy, anzahl
  14.                 SPL @ziel
  15.                 DJN start, count
  16.                 MOV #0, -1
  17.                 JMP -1
  18. Aquelle         DAT 0
  19. Astart          MOV #5, Aquelle
  20.                 MOV #1700 - Aziel + Aende, Aziel
  21. Aloop           MOV @Aquelle, <Aziel
  22.                 DJN Aloop, Aquelle
  23. Aende           JMP @Aziel
  24.                 DAT 1
  25.                 DAT 1
  26.                 DAT 1
  27. Aziel           DAT 0
  28.